home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 041-050 / amok41 / spiele / mastermind / txt / rechtsimg.mod < prev    next >
Text File  |  1993-11-04  |  8KB  |  207 lines
  1. (*********************************************************************
  2.  *
  3.  *  :Program.        Image für Mastermind
  4.  *  :Author.        Hans Schafft
  5.  *  :Address.        Landfriedstraße 1A - Hinterhaus
  6.  *  :Address.        6900 Heidelberg
  7.  *  :Phone.        06221 - 22416
  8.  *  :Version.        1.0
  9.  *  :Date.        1989
  10.  *  :Copyright.        PD
  11.  *  :Language.        Modula-II
  12.  *  :Translator.    M2Amiga
  13.  *
  14.  *********************************************************************)
  15. (*     Um die PfeilImages einzubinden habe ich IFFRToCode von AMOK #3  *)
  16. (*    benutzt. Dem Autor Pit Burkhardt auf diesem Wege vielen Dank !  *)
  17. (************************************************************************)
  18.  
  19. IMPLEMENTATION MODULE RechtsImg;
  20.  
  21. FROM SYSTEM    IMPORT    WORD;
  22. FROM Heap    IMPORT    AllocMem;
  23.  
  24. BEGIN
  25.   AllocMem(RechtsImgPtr,SIZE(RechtsImgPtr^),TRUE);
  26.  
  27.   WITH RechtsImage DO
  28.     leftEdge := 0;
  29.     topEdge := 0;
  30.     width := 24;
  31.     height:= 39;
  32.     depth :=  4;
  33.     imageData := RechtsImgPtr;
  34.     planePick := 0FFH;
  35.     planeOnOff := 0H;
  36.     nextImage := NIL;
  37.   END;
  38.  
  39.   WITH RechtsImgPtr^ DO         (* rechts *)
  40.  
  41.   (* Plane 1 *)
  42.  Dat[  0]:=00000H; Dat[  1]:=00000H;(* 1*)
  43.  Dat[  2]:=0FF00H; Dat[  3]:=00000H;(* 2*)
  44.  Dat[  4]:=0FF00H; Dat[  5]:=00000H;(* 3*)
  45.  Dat[  6]:=0FF00H; Dat[  7]:=00000H;(* 4*)
  46.  Dat[  8]:=0FF00H; Dat[  9]:=00000H;(* 5*)
  47.  Dat[ 10]:=0FF00H; Dat[ 11]:=00000H;(* 6*)
  48.  Dat[ 12]:=01F00H; Dat[ 13]:=00000H;(* 7*)
  49.  Dat[ 14]:=01F00H; Dat[ 15]:=00000H;(* 8*)
  50.  Dat[ 16]:=01F00H; Dat[ 17]:=00000H;(* 9*)
  51.  Dat[ 18]:=01F00H; Dat[ 19]:=00000H;(*10*)
  52.  Dat[ 20]:=01F00H; Dat[ 21]:=00000H;(*11*)
  53.  Dat[ 22]:=01F00H; Dat[ 23]:=00000H;(*12*)
  54.  Dat[ 24]:=01F00H; Dat[ 25]:=00000H;(*13*)
  55.  Dat[ 26]:=01F00H; Dat[ 27]:=00000H;(*14*)
  56.  Dat[ 28]:=01F00H; Dat[ 29]:=00000H;(*15*)
  57.  Dat[ 30]:=01F00H; Dat[ 31]:=00000H;(*16*)
  58.  Dat[ 32]:=01F00H; Dat[ 33]:=00000H;(*17*)
  59.  Dat[ 34]:=01F00H; Dat[ 35]:=00000H;(*18*)
  60.  Dat[ 36]:=01F00H; Dat[ 37]:=00000H;(*19*)
  61.  Dat[ 38]:=01F00H; Dat[ 39]:=00000H;(*20*)
  62.  Dat[ 40]:=01F00H; Dat[ 41]:=00000H;(*21*)
  63.  Dat[ 42]:=01F00H; Dat[ 43]:=00000H;(*22*)
  64.  Dat[ 44]:=01F00H; Dat[ 45]:=00000H;(*23*)
  65.  Dat[ 46]:=01F00H; Dat[ 47]:=00000H;(*24*)
  66.  Dat[ 48]:=01F00H; Dat[ 49]:=00000H;(*25*)
  67.  Dat[ 50]:=01F00H; Dat[ 51]:=00000H;(*26*)
  68.  Dat[ 52]:=01F00H; Dat[ 53]:=00000H;(*27*)
  69.  Dat[ 54]:=01F00H; Dat[ 55]:=00000H;(*28*)
  70.  Dat[ 56]:=01F00H; Dat[ 57]:=00000H;(*29*)
  71.  Dat[ 58]:=01F00H; Dat[ 59]:=00000H;(*30*)
  72.  Dat[ 60]:=01F00H; Dat[ 61]:=00000H;(*31*)
  73.  Dat[ 62]:=01F00H; Dat[ 63]:=00000H;(*32*)
  74.  Dat[ 64]:=01F00H; Dat[ 65]:=00000H;(*33*)
  75.  Dat[ 66]:=0FF00H; Dat[ 67]:=00000H;(*34*)
  76.  Dat[ 68]:=0FF00H; Dat[ 69]:=00000H;(*35*)
  77.  Dat[ 70]:=0FF00H; Dat[ 71]:=00000H;(*36*)
  78.  Dat[ 72]:=0FF00H; Dat[ 73]:=00000H;(*37*)
  79.  Dat[ 74]:=0FF00H; Dat[ 75]:=00000H;(*38*)
  80.  Dat[ 76]:=00000H; Dat[ 77]:=00000H;(*39*)
  81.  
  82.   (* Plane 2 *)
  83.  Dat[ 78]:=00000H; Dat[ 79]:=00000H;(* 1*)
  84.  Dat[ 80]:=00100H; Dat[ 81]:=00000H;(* 2*)
  85.  Dat[ 82]:=00300H; Dat[ 83]:=00000H;(* 3*)
  86.  Dat[ 84]:=00700H; Dat[ 85]:=00000H;(* 4*)
  87.  Dat[ 86]:=00F00H; Dat[ 87]:=00000H;(* 5*)
  88.  Dat[ 88]:=01F00H; Dat[ 89]:=00000H;(* 6*)
  89.  Dat[ 90]:=0FF00H; Dat[ 91]:=00000H;(* 7*)
  90.  Dat[ 92]:=0FF00H; Dat[ 93]:=00000H;(* 8*)
  91.  Dat[ 94]:=0FF00H; Dat[ 95]:=00000H;(* 9*)
  92.  Dat[ 96]:=0FF00H; Dat[ 97]:=00000H;(*10*)
  93.  Dat[ 98]:=0FF00H; Dat[ 99]:=00000H;(*11*)
  94.  Dat[100]:=0FF00H; Dat[101]:=00000H;(*12*)
  95.  Dat[102]:=0FF00H; Dat[103]:=00000H;(*13*)
  96.  Dat[104]:=0FF00H; Dat[105]:=00000H;(*14*)
  97.  Dat[106]:=0FF00H; Dat[107]:=00000H;(*15*)
  98.  Dat[108]:=0FF00H; Dat[109]:=00000H;(*16*)
  99.  Dat[110]:=0FF00H; Dat[111]:=00000H;(*17*)
  100.  Dat[112]:=0FF00H; Dat[113]:=00000H;(*18*)
  101.  Dat[114]:=0FF00H; Dat[115]:=00000H;(*19*)
  102.  Dat[116]:=0FF00H; Dat[117]:=00000H;(*20*)
  103.  Dat[118]:=0FF00H; Dat[119]:=00000H;(*21*)
  104.  Dat[120]:=0FF00H; Dat[121]:=00000H;(*22*)
  105.  Dat[122]:=0FF00H; Dat[123]:=00000H;(*23*)
  106.  Dat[124]:=0FF00H; Dat[125]:=00000H;(*24*)
  107.  Dat[126]:=0FF00H; Dat[127]:=00000H;(*25*)
  108.  Dat[128]:=0FF00H; Dat[129]:=00000H;(*26*)
  109.  Dat[130]:=0FF00H; Dat[131]:=00000H;(*27*)
  110.  Dat[132]:=0FF00H; Dat[133]:=00000H;(*28*)
  111.  Dat[134]:=0FF00H; Dat[135]:=00000H;(*29*)
  112.  Dat[136]:=0FF00H; Dat[137]:=00000H;(*30*)
  113.  Dat[138]:=0FF00H; Dat[139]:=00000H;(*31*)
  114.  Dat[140]:=0FF00H; Dat[141]:=00000H;(*32*)
  115.  Dat[142]:=0FF00H; Dat[143]:=00000H;(*33*)
  116.  Dat[144]:=01F00H; Dat[145]:=00000H;(*34*)
  117.  Dat[146]:=00F00H; Dat[147]:=00000H;(*35*)
  118.  Dat[148]:=00700H; Dat[149]:=00000H;(*36*)
  119.  Dat[150]:=00300H; Dat[151]:=00000H;(*37*)
  120.  Dat[152]:=00100H; Dat[153]:=00000H;(*38*)
  121.  Dat[154]:=00000H; Dat[155]:=00000H;(*39*)
  122.  
  123.   (* Plane 3 *)
  124.  Dat[156]:=00000H; Dat[157]:=00000H;(* 1*)
  125.  Dat[158]:=0FE00H; Dat[159]:=00000H;(* 2*)
  126.  Dat[160]:=0FC00H; Dat[161]:=00000H;(* 3*)
  127.  Dat[162]:=0F800H; Dat[163]:=00000H;(* 4*)
  128.  Dat[164]:=0F000H; Dat[165]:=00000H;(* 5*)
  129.  Dat[166]:=0E000H; Dat[167]:=00000H;(* 6*)
  130.  Dat[168]:=00000H; Dat[169]:=00000H;(* 7*)
  131.  Dat[170]:=00000H; Dat[171]:=00000H;(* 8*)
  132.  Dat[172]:=00000H; Dat[173]:=00000H;(* 9*)
  133.  Dat[174]:=00000H; Dat[175]:=00000H;(*10*)
  134.  Dat[176]:=00000H; Dat[177]:=00000H;(*11*)
  135.  Dat[178]:=00000H; Dat[179]:=00000H;(*12*)
  136.  Dat[180]:=00000H; Dat[181]:=00000H;(*13*)
  137.  Dat[182]:=00000H; Dat[183]:=00000H;(*14*)
  138.  Dat[184]:=00000H; Dat[185]:=00000H;(*15*)
  139.  Dat[186]:=00000H; Dat[187]:=00000H;(*16*)
  140.  Dat[188]:=00000H; Dat[189]:=00000H;(*17*)
  141.  Dat[190]:=00000H; Dat[191]:=00000H;(*18*)
  142.  Dat[192]:=00000H; Dat[193]:=00000H;(*19*)
  143.  Dat[194]:=00000H; Dat[195]:=00000H;(*20*)
  144.  Dat[196]:=00000H; Dat[197]:=00000H;(*21*)
  145.  Dat[198]:=00000H; Dat[199]:=00000H;(*22*)
  146.  Dat[200]:=00000H; Dat[201]:=00000H;(*23*)
  147.  Dat[202]:=00000H; Dat[203]:=00000H;(*24*)
  148.  Dat[204]:=00000H; Dat[205]:=00000H;(*25*)
  149.  Dat[206]:=00000H; Dat[207]:=00000H;(*26*)
  150.  Dat[208]:=00000H; Dat[209]:=00000H;(*27*)
  151.  Dat[210]:=00000H; Dat[211]:=00000H;(*28*)
  152.  Dat[212]:=00000H; Dat[213]:=00000H;(*29*)
  153.  Dat[214]:=00000H; Dat[215]:=00000H;(*30*)
  154.  Dat[216]:=00000H; Dat[217]:=00000H;(*31*)
  155.  Dat[218]:=00000H; Dat[219]:=00000H;(*32*)
  156.  Dat[220]:=00000H; Dat[221]:=00000H;(*33*)
  157.  Dat[222]:=0E000H; Dat[223]:=00000H;(*34*)
  158.  Dat[224]:=0F000H; Dat[225]:=00000H;(*35*)
  159.  Dat[226]:=0F800H; Dat[227]:=00000H;(*36*)
  160.  Dat[228]:=0FC00H; Dat[229]:=00000H;(*37*)
  161.  Dat[230]:=0FE00H; Dat[231]:=00000H;(*38*)
  162.  Dat[232]:=00000H; Dat[233]:=00000H;(*39*)
  163.  
  164.   (* Plane 4 *)
  165.  Dat[234]:=00000H; Dat[235]:=00000H;(* 1*)
  166.  Dat[236]:=0FF00H; Dat[237]:=00000H;(* 2*)
  167.  Dat[238]:=0FF00H; Dat[239]:=00000H;(* 3*)
  168.  Dat[240]:=0FF00H; Dat[241]:=00000H;(* 4*)
  169.  Dat[242]:=0FF00H; Dat[243]:=00000H;(* 5*)
  170.  Dat[244]:=0FF00H; Dat[245]:=00000H;(* 6*)
  171.  Dat[246]:=01F00H; Dat[247]:=00000H;(* 7*)
  172.  Dat[248]:=01F00H; Dat[249]:=00000H;(* 8*)
  173.  Dat[250]:=01F00H; Dat[251]:=00000H;(* 9*)
  174.  Dat[252]:=01F00H; Dat[253]:=00000H;(*10*)
  175.  Dat[254]:=01F00H; Dat[255]:=00000H;(*11*)
  176.  Dat[256]:=01F00H; Dat[257]:=00000H;(*12*)
  177.  Dat[258]:=01F00H; Dat[259]:=00000H;(*13*)
  178.  Dat[260]:=01F00H; Dat[261]:=00000H;(*14*)
  179.  Dat[262]:=01F00H; Dat[263]:=00000H;(*15*)
  180.  Dat[264]:=01F00H; Dat[265]:=00000H;(*16*)
  181.  Dat[266]:=01F00H; Dat[267]:=00000H;(*17*)
  182.  Dat[268]:=01F00H; Dat[269]:=00000H;(*18*)
  183.  Dat[270]:=01F00H; Dat[271]:=00000H;(*19*)
  184.  Dat[272]:=01F00H; Dat[273]:=00000H;(*20*)
  185.  Dat[274]:=01F00H; Dat[275]:=00000H;(*21*)
  186.  Dat[276]:=01F00H; Dat[277]:=00000H;(*22*)
  187.  Dat[278]:=01F00H; Dat[279]:=00000H;(*23*)
  188.  Dat[280]:=01F00H; Dat[281]:=00000H;(*24*)
  189.  Dat[282]:=01F00H; Dat[283]:=00000H;(*25*)
  190.  Dat[284]:=01F00H; Dat[285]:=00000H;(*26*)
  191.  Dat[286]:=01F00H; Dat[287]:=00000H;(*27*)
  192.  Dat[288]:=01F00H; Dat[289]:=00000H;(*28*)
  193.  Dat[290]:=01F00H; Dat[291]:=00000H;(*29*)
  194.  Dat[292]:=01F00H; Dat[293]:=00000H;(*30*)
  195.  Dat[294]:=01F00H; Dat[295]:=00000H;(*31*)
  196.  Dat[296]:=01F00H; Dat[297]:=00000H;(*32*)
  197.  Dat[298]:=01F00H; Dat[299]:=00000H;(*33*)
  198.  Dat[300]:=0FF00H; Dat[301]:=00000H;(*34*)
  199.  Dat[302]:=0FF00H; Dat[303]:=00000H;(*35*)
  200.  Dat[304]:=0FF00H; Dat[305]:=00000H;(*36*)
  201.  Dat[306]:=0FF00H; Dat[307]:=00000H;(*37*)
  202.  Dat[308]:=0FF00H; Dat[309]:=00000H;(*38*)
  203.  Dat[310]:=00000H; Dat[311]:=00000H;(*39*)
  204.  
  205. END;
  206. END RechtsImg.
  207.